home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / clean / sun3.lha / Sun3 / deltaR.abc < prev    next >
Text File  |  1992-08-07  |  16KB  |  1,189 lines
  1. .comp 800 111111011
  2. .code     526      25     120
  3. .start _nostart_
  4. .endinfo
  5. .implab _cycle_in_spine
  6. .implab _reserve
  7. .implab _type_error
  8. .impdesc _Defer
  9. .implab _defer_code
  10. .implab _hnf
  11. .impdesc _Cons
  12. .impdesc _Tuple
  13. .impdesc _Select
  14. .impdesc _Nil
  15. .implab _driver
  16. .implab e_system_nAP
  17. .implab e_system_sAP
  18. .impdesc e_system_AP
  19. .desc m_deltaR _hnf _hnf 0 "deltaR"
  20.  
  21.  
  22. .export e_deltaR_+R
  23. .export e_deltaR_s+R
  24. .export e_deltaR_n+R
  25. .desc e_deltaR_+R e_deltaR_n+R e_deltaR_l+R 2 "+R"
  26. .o 2 0
  27. e_deltaR_l+R:
  28.     repl_args 1 1
  29. .d 2 0
  30.     jsr ea+R
  31. .o 0 2 r
  32.     create
  33.     fillR_b 0 0
  34.     pop_b 2
  35. .d 1 0
  36.     rtn
  37. .n 2 e_deltaR_+R
  38. .o 1 0
  39. e_deltaR_n+R:
  40.     push_node _reserve 2
  41. .d 2 0
  42.     jsr ea+R
  43. .o 0 2 r
  44.     getWL 0
  45.     fillR_b 0 0
  46.     release
  47.     pop_b 2
  48. .d 1 0
  49.     rtn
  50. .o 2 0
  51. ea+R:
  52.             ||    REAL
  53.     push_a 1
  54.     jsr_eval
  55.     pop_a 1
  56.             ||    REAL
  57.     jsr_eval
  58.             ||    REAL
  59.     pushR_a 1
  60.             ||    REAL
  61.     pushR_a 0
  62.     pop_a 2
  63. .o 0 4 r r
  64. e_deltaR_s+R:
  65. .o 0 4 r r
  66. s+R.1:
  67.             ||    Match code for alternative 1, stacksizes A: 0 B: 4
  68.             ||    Building the contractum, Stacksizes A: 0 B: 4
  69. .inline +R
  70.     addR
  71. .end
  72. .d 0 2 r
  73.     rtn
  74. .export e_deltaR_-R
  75. .export e_deltaR_s-R
  76. .export e_deltaR_n-R
  77. .desc e_deltaR_-R e_deltaR_n-R e_deltaR_l-R 2 "-R"
  78. .o 2 0
  79. e_deltaR_l-R:
  80.     repl_args 1 1
  81. .d 2 0
  82.     jsr ea-R
  83. .o 0 2 r
  84.     create
  85.     fillR_b 0 0
  86.     pop_b 2
  87. .d 1 0
  88.     rtn
  89. .n 2 e_deltaR_-R
  90. .o 1 0
  91. e_deltaR_n-R:
  92.     push_node _reserve 2
  93. .d 2 0
  94.     jsr ea-R
  95. .o 0 2 r
  96.     getWL 0
  97.     fillR_b 0 0
  98.     release
  99.     pop_b 2
  100. .d 1 0
  101.     rtn
  102. .o 2 0
  103. ea-R:
  104.             ||    REAL
  105.     push_a 1
  106.     jsr_eval
  107.     pop_a 1
  108.             ||    REAL
  109.     jsr_eval
  110.             ||    REAL
  111.     pushR_a 1
  112.             ||    REAL
  113.     pushR_a 0
  114.     pop_a 2
  115. .o 0 4 r r
  116. e_deltaR_s-R:
  117. .o 0 4 r r
  118. s-R.1:
  119.             ||    Match code for alternative 1, stacksizes A: 0 B: 4
  120.             ||    Building the contractum, Stacksizes A: 0 B: 4
  121. .inline -R
  122.     subR
  123. .end
  124. .d 0 2 r
  125.     rtn
  126. .export e_deltaR_*R
  127. .export e_deltaR_s*R
  128. .export e_deltaR_n*R
  129. .desc e_deltaR_*R e_deltaR_n*R e_deltaR_l*R 2 "*R"
  130. .o 2 0
  131. e_deltaR_l*R:
  132.     repl_args 1 1
  133. .d 2 0
  134.     jsr ea*R
  135. .o 0 2 r
  136.     create
  137.     fillR_b 0 0
  138.     pop_b 2
  139. .d 1 0
  140.     rtn
  141. .n 2 e_deltaR_*R
  142. .o 1 0
  143. e_deltaR_n*R:
  144.     push_node _reserve 2
  145. .d 2 0
  146.     jsr ea*R
  147. .o 0 2 r
  148.     getWL 0
  149.     fillR_b 0 0
  150.     release
  151.     pop_b 2
  152. .d 1 0
  153.     rtn
  154. .o 2 0
  155. ea*R:
  156.             ||    REAL
  157.     push_a 1
  158.     jsr_eval
  159.     pop_a 1
  160.             ||    REAL
  161.     jsr_eval
  162.             ||    REAL
  163.     pushR_a 1
  164.             ||    REAL
  165.     pushR_a 0
  166.     pop_a 2
  167. .o 0 4 r r
  168. e_deltaR_s*R:
  169. .o 0 4 r r
  170. s*R.1:
  171.             ||    Match code for alternative 1, stacksizes A: 0 B: 4
  172.             ||    Building the contractum, Stacksizes A: 0 B: 4
  173. .inline *R
  174.     mulR
  175. .end
  176. .d 0 2 r
  177.     rtn
  178. .export e_deltaR_/R
  179. .export e_deltaR_s/R
  180. .export e_deltaR_n/R
  181. .desc e_deltaR_/R e_deltaR_n/R e_deltaR_l/R 2 "/R"
  182. .o 2 0
  183. e_deltaR_l/R:
  184.     repl_args 1 1
  185. .d 2 0
  186.     jsr ea/R
  187. .o 0 2 r
  188.     create
  189.     fillR_b 0 0
  190.     pop_b 2
  191. .d 1 0
  192.     rtn
  193. .n 2 e_deltaR_/R
  194. .o 1 0
  195. e_deltaR_n/R:
  196.     push_node _reserve 2
  197. .d 2 0
  198.     jsr ea/R
  199. .o 0 2 r
  200.     getWL 0
  201.     fillR_b 0 0
  202.     release
  203.     pop_b 2
  204. .d 1 0
  205.     rtn
  206. .o 2 0
  207. ea/R:
  208.             ||    REAL
  209.     push_a 1
  210.     jsr_eval
  211.     pop_a 1
  212.             ||    REAL
  213.     jsr_eval
  214.             ||    REAL
  215.     pushR_a 1
  216.             ||    REAL
  217.     pushR_a 0
  218.     pop_a 2
  219. .o 0 4 r r
  220. e_deltaR_s/R:
  221. .o 0 4 r r
  222. s/R.1:
  223.             ||    Match code for alternative 1, stacksizes A: 0 B: 4
  224.             ||    Building the contractum, Stacksizes A: 0 B: 4
  225. .inline /R
  226.     divR
  227. .end
  228. .d 0 2 r
  229.     rtn
  230. .export e_deltaR_=R
  231. .export e_deltaR_s=R
  232. .export e_deltaR_n=R
  233. .desc e_deltaR_=R e_deltaR_n=R e_deltaR_l=R 2 "=R"
  234. .o 2 0
  235. e_deltaR_l=R:
  236.     repl_args 1 1
  237. .d 2 0
  238.     jsr ea=R
  239. .o 0 1 b
  240.     create
  241.     fillB_b 0 0
  242.     pop_b 1
  243. .d 1 0
  244.     rtn
  245. .n 2 e_deltaR_=R
  246. .o 1 0
  247. e_deltaR_n=R:
  248.     push_node _reserve 2
  249. .d 2 0
  250.     jsr ea=R
  251. .o 0 1 b
  252.     getWL 0
  253.     fillB_b 0 0
  254.     release
  255.     pop_b 1
  256. .d 1 0
  257.     rtn
  258. .o 2 0
  259. ea=R:
  260.             ||    REAL
  261.     push_a 1
  262.     jsr_eval
  263.     pop_a 1
  264.             ||    REAL
  265.     jsr_eval
  266.             ||    REAL
  267.     pushR_a 1
  268.             ||    REAL
  269.     pushR_a 0
  270.     pop_a 2
  271. .o 0 4 r r
  272. e_deltaR_s=R:
  273. .o 0 4 r r
  274. s=R.1:
  275.             ||    Match code for alternative 1, stacksizes A: 0 B: 4
  276.             ||    Building the contractum, Stacksizes A: 0 B: 4
  277. .inline =R
  278.     eqR
  279. .end
  280. .d 0 1 b
  281.     rtn
  282. .export e_deltaR_<>R
  283. .export e_deltaR_s<>R
  284. .export e_deltaR_n<>R
  285. .desc e_deltaR_<>R e_deltaR_n<>R e_deltaR_l<>R 2 "<>R"
  286. .o 2 0
  287. e_deltaR_l<>R:
  288.     repl_args 1 1
  289. .d 2 0
  290.     jsr ea<>R
  291. .o 0 1 b
  292.     create
  293.     fillB_b 0 0
  294.     pop_b 1
  295. .d 1 0
  296.     rtn
  297. .n 2 e_deltaR_<>R
  298. .o 1 0
  299. e_deltaR_n<>R:
  300.     push_node _reserve 2
  301. .d 2 0
  302.     jsr ea<>R
  303. .o 0 1 b
  304.     getWL 0
  305.     fillB_b 0 0
  306.     release
  307.     pop_b 1
  308. .d 1 0
  309.     rtn
  310. .o 2 0
  311. ea<>R:
  312.             ||    REAL
  313.     push_a 1
  314.     jsr_eval
  315.     pop_a 1
  316.             ||    REAL
  317.     jsr_eval
  318.             ||    REAL
  319.     pushR_a 1
  320.             ||    REAL
  321.     pushR_a 0
  322.     pop_a 2
  323. .o 0 4 r r
  324. e_deltaR_s<>R:
  325. .o 0 4 r r
  326. s<>R.1:
  327.             ||    Match code for alternative 1, stacksizes A: 0 B: 4
  328.             ||    Building the contractum, Stacksizes A: 0 B: 4
  329. .inline <>R
  330.     eqR
  331.     notB
  332. .end
  333. .d 0 1 b
  334.     rtn
  335. .export e_deltaR_<R
  336. .export e_deltaR_s<R
  337. .export e_deltaR_n<R
  338. .desc e_deltaR_<R e_deltaR_n<R e_deltaR_l<R 2 "<R"
  339. .o 2 0
  340. e_deltaR_l<R:
  341.     repl_args 1 1
  342. .d 2 0
  343.     jsr ea<R
  344. .o 0 1 b
  345.     create
  346.     fillB_b 0 0
  347.     pop_b 1
  348. .d 1 0
  349.     rtn
  350. .n 2 e_deltaR_<R
  351. .o 1 0
  352. e_deltaR_n<R:
  353.     push_node _reserve 2
  354. .d 2 0
  355.     jsr ea<R
  356. .o 0 1 b
  357.     getWL 0
  358.     fillB_b 0 0
  359.     release
  360.     pop_b 1
  361. .d 1 0
  362.     rtn
  363. .o 2 0
  364. ea<R:
  365.             ||    REAL
  366.     push_a 1
  367.     jsr_eval
  368.     pop_a 1
  369.             ||    REAL
  370.     jsr_eval
  371.             ||    REAL
  372.     pushR_a 1
  373.             ||    REAL
  374.     pushR_a 0
  375.     pop_a 2
  376. .o 0 4 r r
  377. e_deltaR_s<R:
  378. .o 0 4 r r
  379. s<R.1:
  380.             ||    Match code for alternative 1, stacksizes A: 0 B: 4
  381.             ||    Building the contractum, Stacksizes A: 0 B: 4
  382. .inline <R
  383.     ltR
  384. .end
  385. .d 0 1 b
  386.     rtn
  387. .export e_deltaR_>R
  388. .export e_deltaR_s>R
  389. .export e_deltaR_n>R
  390. .desc e_deltaR_>R e_deltaR_n>R e_deltaR_l>R 2 ">R"
  391. .o 2 0
  392. e_deltaR_l>R:
  393.     repl_args 1 1
  394. .d 2 0
  395.     jsr ea>R
  396. .o 0 1 b
  397.     create
  398.     fillB_b 0 0
  399.     pop_b 1
  400. .d 1 0
  401.     rtn
  402. .n 2 e_deltaR_>R
  403. .o 1 0
  404. e_deltaR_n>R:
  405.     push_node _reserve 2
  406. .d 2 0
  407.     jsr ea>R
  408. .o 0 1 b
  409.     getWL 0
  410.     fillB_b 0 0
  411.     release
  412.     pop_b 1
  413. .d 1 0
  414.     rtn
  415. .o 2 0
  416. ea>R:
  417.             ||    REAL
  418.     push_a 1
  419.     jsr_eval
  420.     pop_a 1
  421.             ||    REAL
  422.     jsr_eval
  423.             ||    REAL
  424.     pushR_a 1
  425.             ||    REAL
  426.     pushR_a 0
  427.     pop_a 2
  428. .o 0 4 r r
  429. e_deltaR_s>R:
  430. .o 0 4 r r
  431. s>R.1:
  432.             ||    Match code for alternative 1, stacksizes A: 0 B: 4
  433.             ||    Building the contractum, Stacksizes A: 0 B: 4
  434. .inline >R
  435.     gtR
  436. .end
  437. .d 0 1 b
  438.     rtn
  439. .export e_deltaR_<=R
  440. .export e_deltaR_s<=R
  441. .export e_deltaR_n<=R
  442. .desc e_deltaR_<=R e_deltaR_n<=R e_deltaR_l<=R 2 "<=R"
  443. .o 2 0
  444. e_deltaR_l<=R:
  445.     repl_args 1 1
  446. .d 2 0
  447.     jsr ea<=R
  448. .o 0 1 b
  449.     create
  450.     fillB_b 0 0
  451.     pop_b 1
  452. .d 1 0
  453.     rtn
  454. .n 2 e_deltaR_<=R
  455. .o 1 0
  456. e_deltaR_n<=R:
  457.     push_node _reserve 2
  458. .d 2 0
  459.     jsr ea<=R
  460. .o 0 1 b
  461.     getWL 0
  462.     fillB_b 0 0
  463.     release
  464.     pop_b 1
  465. .d 1 0
  466.     rtn
  467. .o 2 0
  468. ea<=R:
  469.             ||    REAL
  470.     push_a 1
  471.     jsr_eval
  472.     pop_a 1
  473.             ||    REAL
  474.     jsr_eval
  475.             ||    REAL
  476.     pushR_a 1
  477.             ||    REAL
  478.     pushR_a 0
  479.     pop_a 2
  480. .o 0 4 r r
  481. e_deltaR_s<=R:
  482. .o 0 4 r r
  483. s<=R.1:
  484.             ||    Match code for alternative 1, stacksizes A: 0 B: 4
  485.             ||    Building the contractum, Stacksizes A: 0 B: 4
  486. .inline <=R
  487.     gtR
  488.     notB
  489. .end
  490. .d 0 1 b
  491.     rtn
  492. .export e_deltaR_>=R
  493. .export e_deltaR_s>=R
  494. .export e_deltaR_n>=R
  495. .desc e_deltaR_>=R e_deltaR_n>=R e_deltaR_l>=R 2 ">=R"
  496. .o 2 0
  497. e_deltaR_l>=R:
  498.     repl_args 1 1
  499. .d 2 0
  500.     jsr ea>=R
  501. .o 0 1 b
  502.     create
  503.     fillB_b 0 0
  504.     pop_b 1
  505. .d 1 0
  506.     rtn
  507. .n 2 e_deltaR_>=R
  508. .o 1 0
  509. e_deltaR_n>=R:
  510.     push_node _reserve 2
  511. .d 2 0
  512.     jsr ea>=R
  513. .o 0 1 b
  514.     getWL 0
  515.     fillB_b 0 0
  516.     release
  517.     pop_b 1
  518. .d 1 0
  519.     rtn
  520. .o 2 0
  521. ea>=R:
  522.             ||    REAL
  523.     push_a 1
  524.     jsr_eval
  525.     pop_a 1
  526.             ||    REAL
  527.     jsr_eval
  528.             ||    REAL
  529.     pushR_a 1
  530.             ||    REAL
  531.     pushR_a 0
  532.     pop_a 2
  533. .o 0 4 r r
  534. e_deltaR_s>=R:
  535. .o 0 4 r r
  536. s>=R.1:
  537.             ||    Match code for alternative 1, stacksizes A: 0 B: 4
  538.             ||    Building the contractum, Stacksizes A: 0 B: 4
  539. .inline >=R
  540.     ltR
  541.     notB
  542. .end
  543. .d 0 1 b
  544.     rtn
  545. .export e_deltaR_SIN
  546. .export e_deltaR_sSIN
  547. .export e_deltaR_nSIN
  548. .desc e_deltaR_SIN e_deltaR_nSIN e_deltaR_lSIN 1 "SIN"
  549. .o 2 0
  550. e_deltaR_lSIN:
  551.     pop_a 1
  552. .d 1 0
  553.     jsr eaSIN
  554. .o 0 2 r
  555.     create
  556.     fillR_b 0 0
  557.     pop_b 2
  558. .d 1 0
  559.     rtn
  560. .n 1 e_deltaR_SIN
  561. .o 1 0
  562. e_deltaR_nSIN:
  563.     push_node _reserve 1
  564. .d 1 0
  565.     jsr eaSIN
  566. .o 0 2 r
  567.     getWL 0
  568.     fillR_b 0 0
  569.     release
  570.     pop_b 2
  571. .d 1 0
  572.     rtn
  573. .o 1 0
  574. eaSIN:
  575.             ||    REAL
  576.     jsr_eval
  577.             ||    REAL
  578.     pushR_a 0
  579.     pop_a 1
  580. .o 0 2 r
  581. e_deltaR_sSIN:
  582. .o 0 2 r
  583. sSIN.1:
  584.             ||    Match code for alternative 1, stacksizes A: 0 B: 2
  585.             ||    Building the contractum, Stacksizes A: 0 B: 2
  586. .inline SIN
  587.     sinR
  588. .end
  589. .d 0 2 r
  590.     rtn
  591. .export e_deltaR_COS
  592. .export e_deltaR_sCOS
  593. .export e_deltaR_nCOS
  594. .desc e_deltaR_COS e_deltaR_nCOS e_deltaR_lCOS 1 "COS"
  595. .o 2 0
  596. e_deltaR_lCOS:
  597.     pop_a 1
  598. .d 1 0
  599.     jsr eaCOS
  600. .o 0 2 r
  601.     create
  602.     fillR_b 0 0
  603.     pop_b 2
  604. .d 1 0
  605.     rtn
  606. .n 1 e_deltaR_COS
  607. .o 1 0
  608. e_deltaR_nCOS:
  609.     push_node _reserve 1
  610. .d 1 0
  611.     jsr eaCOS
  612. .o 0 2 r
  613.     getWL 0
  614.     fillR_b 0 0
  615.     release
  616.     pop_b 2
  617. .d 1 0
  618.     rtn
  619. .o 1 0
  620. eaCOS:
  621.             ||    REAL
  622.     jsr_eval
  623.             ||    REAL
  624.     pushR_a 0
  625.     pop_a 1
  626. .o 0 2 r
  627. e_deltaR_sCOS:
  628. .o 0 2 r
  629. sCOS.1:
  630.             ||    Match code for alternative 1, stacksizes A: 0 B: 2
  631.             ||    Building the contractum, Stacksizes A: 0 B: 2
  632. .inline COS
  633.     cosR
  634. .end
  635. .d 0 2 r
  636.     rtn
  637. .export e_deltaR_TAN
  638. .export e_deltaR_sTAN
  639. .export e_deltaR_nTAN
  640. .desc e_deltaR_TAN e_deltaR_nTAN e_deltaR_lTAN 1 "TAN"
  641. .o 2 0
  642. e_deltaR_lTAN:
  643.     pop_a 1
  644. .d 1 0
  645.     jsr eaTAN
  646. .o 0 2 r
  647.     create
  648.     fillR_b 0 0
  649.     pop_b 2
  650. .d 1 0
  651.     rtn
  652. .n 1 e_deltaR_TAN
  653. .o 1 0
  654. e_deltaR_nTAN:
  655.     push_node _reserve 1
  656. .d 1 0
  657.     jsr eaTAN
  658. .o 0 2 r
  659.     getWL 0
  660.     fillR_b 0 0
  661.     release
  662.     pop_b 2
  663. .d 1 0
  664.     rtn
  665. .o 1 0
  666. eaTAN:
  667.             ||    REAL
  668.     jsr_eval
  669.             ||    REAL
  670.     pushR_a 0
  671.     pop_a 1
  672. .o 0 2 r
  673. e_deltaR_sTAN:
  674. .o 0 2 r
  675. sTAN.1:
  676.             ||    Match code for alternative 1, stacksizes A: 0 B: 2
  677.             ||    Building the contractum, Stacksizes A: 0 B: 2
  678. .inline TAN
  679.     tanR
  680. .end
  681. .d 0 2 r
  682.     rtn
  683. .export e_deltaR_ASIN
  684. .export e_deltaR_sASIN
  685. .export e_deltaR_nASIN
  686. .desc e_deltaR_ASIN e_deltaR_nASIN e_deltaR_lASIN 1 "ASIN"
  687. .o 2 0
  688. e_deltaR_lASIN:
  689.     pop_a 1
  690. .d 1 0
  691.     jsr eaASIN
  692. .o 0 2 r
  693.     create
  694.     fillR_b 0 0
  695.     pop_b 2
  696. .d 1 0
  697.     rtn
  698. .n 1 e_deltaR_ASIN
  699. .o 1 0
  700. e_deltaR_nASIN:
  701.     push_node _reserve 1
  702. .d 1 0
  703.     jsr eaASIN
  704. .o 0 2 r
  705.     getWL 0
  706.     fillR_b 0 0
  707.     release
  708.     pop_b 2
  709. .d 1 0
  710.     rtn
  711. .o 1 0
  712. eaASIN:
  713.             ||    REAL
  714.     jsr_eval
  715.             ||    REAL
  716.     pushR_a 0
  717.     pop_a 1
  718. .o 0 2 r
  719. e_deltaR_sASIN:
  720. .o 0 2 r
  721. sASIN.1:
  722.             ||    Match code for alternative 1, stacksizes A: 0 B: 2
  723.             ||    Building the contractum, Stacksizes A: 0 B: 2
  724. .inline ASIN
  725.     asinR
  726. .end
  727. .d 0 2 r
  728.     rtn
  729. .export e_deltaR_ACOS
  730. .export e_deltaR_sACOS
  731. .export e_deltaR_nACOS
  732. .desc e_deltaR_ACOS e_deltaR_nACOS e_deltaR_lACOS 1 "ACOS"
  733. .o 2 0
  734. e_deltaR_lACOS:
  735.     pop_a 1
  736. .d 1 0
  737.     jsr eaACOS
  738. .o 0 2 r
  739.     create
  740.     fillR_b 0 0
  741.     pop_b 2
  742. .d 1 0
  743.     rtn
  744. .n 1 e_deltaR_ACOS
  745. .o 1 0
  746. e_deltaR_nACOS:
  747.     push_node _reserve 1
  748. .d 1 0
  749.     jsr eaACOS
  750. .o 0 2 r
  751.     getWL 0
  752.     fillR_b 0 0
  753.     release
  754.     pop_b 2
  755. .d 1 0
  756.     rtn
  757. .o 1 0
  758. eaACOS:
  759.             ||    REAL
  760.     jsr_eval
  761.             ||    REAL
  762.     pushR_a 0
  763.     pop_a 1
  764. .o 0 2 r
  765. e_deltaR_sACOS:
  766. .o 0 2 r
  767. sACOS.1:
  768.             ||    Match code for alternative 1, stacksizes A: 0 B: 2
  769.             ||    Building the contractum, Stacksizes A: 0 B: 2
  770. .inline ACOS
  771.     acosR
  772. .end
  773. .d 0 2 r
  774.     rtn
  775. .export e_deltaR_ATAN
  776. .export e_deltaR_sATAN
  777. .export e_deltaR_nATAN
  778. .desc e_deltaR_ATAN e_deltaR_nATAN e_deltaR_lATAN 1 "ATAN"
  779. .o 2 0
  780. e_deltaR_lATAN:
  781.     pop_a 1
  782. .d 1 0
  783.     jsr eaATAN
  784. .o 0 2 r
  785.     create
  786.     fillR_b 0 0
  787.     pop_b 2
  788. .d 1 0
  789.     rtn
  790. .n 1 e_deltaR_ATAN
  791. .o 1 0
  792. e_deltaR_nATAN:
  793.     push_node _reserve 1
  794. .d 1 0
  795.     jsr eaATAN
  796. .o 0 2 r
  797.     getWL 0
  798.     fillR_b 0 0
  799.     release
  800.     pop_b 2
  801. .d 1 0
  802.     rtn
  803. .o 1 0
  804. eaATAN:
  805.             ||    REAL
  806.     jsr_eval
  807.             ||    REAL
  808.     pushR_a 0
  809.     pop_a 1
  810. .o 0 2 r
  811. e_deltaR_sATAN:
  812. .o 0 2 r
  813. sATAN.1:
  814.             ||    Match code for alternative 1, stacksizes A: 0 B: 2
  815.             ||    Building the contractum, Stacksizes A: 0 B: 2
  816. .inline ATAN
  817.     atanR
  818. .end
  819. .d 0 2 r
  820.     rtn
  821. .export e_deltaR_LN
  822. .export e_deltaR_sLN
  823. .export e_deltaR_nLN
  824. .desc e_deltaR_LN e_deltaR_nLN e_deltaR_lLN 1 "LN"
  825. .o 2 0
  826. e_deltaR_lLN:
  827.     pop_a 1
  828. .d 1 0
  829.     jsr eaLN
  830. .o 0 2 r
  831.     create
  832.     fillR_b 0 0
  833.     pop_b 2
  834. .d 1 0
  835.     rtn
  836. .n 1 e_deltaR_LN
  837. .o 1 0
  838. e_deltaR_nLN:
  839.     push_node _reserve 1
  840. .d 1 0
  841.     jsr eaLN
  842. .o 0 2 r
  843.     getWL 0
  844.     fillR_b 0 0
  845.     release
  846.     pop_b 2
  847. .d 1 0
  848.     rtn
  849. .o 1 0
  850. eaLN:
  851.             ||    REAL
  852.     jsr_eval
  853.             ||    REAL
  854.     pushR_a 0
  855.     pop_a 1
  856. .o 0 2 r
  857. e_deltaR_sLN:
  858. .o 0 2 r
  859. sLN.1:
  860.             ||    Match code for alternative 1, stacksizes A: 0 B: 2
  861.             ||    Building the contractum, Stacksizes A: 0 B: 2
  862. .inline LN
  863.     lnR
  864. .end
  865. .d 0 2 r
  866.     rtn
  867. .export e_deltaR_LOG10
  868. .export e_deltaR_sLOG10
  869. .export e_deltaR_nLOG10
  870. .desc e_deltaR_LOG10 e_deltaR_nLOG10 e_deltaR_lLOG10 1 "LOG10"
  871. .o 2 0
  872. e_deltaR_lLOG10:
  873.     pop_a 1
  874. .d 1 0
  875.     jsr eaLOG10
  876. .o 0 2 r
  877.     create
  878.     fillR_b 0 0
  879.     pop_b 2
  880. .d 1 0
  881.     rtn
  882. .n 1 e_deltaR_LOG10
  883. .o 1 0
  884. e_deltaR_nLOG10:
  885.     push_node _reserve 1
  886. .d 1 0
  887.     jsr eaLOG10
  888. .o 0 2 r
  889.     getWL 0
  890.     fillR_b 0 0
  891.     release
  892.     pop_b 2
  893. .d 1 0
  894.     rtn
  895. .o 1 0
  896. eaLOG10:
  897.             ||    REAL
  898.     jsr_eval
  899.             ||    REAL
  900.     pushR_a 0
  901.     pop_a 1
  902. .o 0 2 r
  903. e_deltaR_sLOG10:
  904. .o 0 2 r
  905. sLOG10.1:
  906.             ||    Match code for alternative 1, stacksizes A: 0 B: 2
  907.             ||    Building the contractum, Stacksizes A: 0 B: 2
  908. .inline LOG10
  909.     log10R
  910. .end
  911. .d 0 2 r
  912.     rtn
  913. .export e_deltaR_EXP
  914. .export e_deltaR_sEXP
  915. .export e_deltaR_nEXP
  916. .desc e_deltaR_EXP e_deltaR_nEXP e_deltaR_lEXP 1 "EXP"
  917. .o 2 0
  918. e_deltaR_lEXP:
  919.     pop_a 1
  920. .d 1 0
  921.     jsr eaEXP
  922. .o 0 2 r
  923.     create
  924.     fillR_b 0 0
  925.     pop_b 2
  926. .d 1 0
  927.     rtn
  928. .n 1 e_deltaR_EXP
  929. .o 1 0
  930. e_deltaR_nEXP:
  931.     push_node _reserve 1
  932. .d 1 0
  933.     jsr eaEXP
  934. .o 0 2 r
  935.     getWL 0
  936.     fillR_b 0 0
  937.     release
  938.     pop_b 2
  939. .d 1 0
  940.     rtn
  941. .o 1 0
  942. eaEXP:
  943.             ||    REAL
  944.     jsr_eval
  945.             ||    REAL
  946.     pushR_a 0
  947.     pop_a 1
  948. .o 0 2 r
  949. e_deltaR_sEXP:
  950. .o 0 2 r
  951. sEXP.1:
  952.             ||    Match code for alternative 1, stacksizes A: 0 B: 2
  953.             ||    Building the contractum, Stacksizes A: 0 B: 2
  954. .inline EXP
  955.     expR
  956. .end
  957. .d 0 2 r
  958.     rtn
  959. .export e_deltaR_POW
  960. .export e_deltaR_sPOW
  961. .export e_deltaR_nPOW
  962. .desc e_deltaR_POW e_deltaR_nPOW e_deltaR_lPOW 2 "POW"
  963. .o 2 0
  964. e_deltaR_lPOW:
  965.     repl_args 1 1
  966. .d 2 0
  967.     jsr eaPOW
  968. .o 0 2 r
  969.     create
  970.     fillR_b 0 0
  971.     pop_b 2
  972. .d 1 0
  973.     rtn
  974. .n 2 e_deltaR_POW
  975. .o 1 0
  976. e_deltaR_nPOW:
  977.     push_node _reserve 2
  978. .d 2 0
  979.     jsr eaPOW
  980. .o 0 2 r
  981.     getWL 0
  982.     fillR_b 0 0
  983.     release
  984.     pop_b 2
  985. .d 1 0
  986.     rtn
  987. .o 2 0
  988. eaPOW:
  989.             ||    REAL
  990.     push_a 1
  991.     jsr_eval
  992.     pop_a 1
  993.             ||    REAL
  994.     jsr_eval
  995.             ||    REAL
  996.     pushR_a 1
  997.             ||    REAL
  998.     pushR_a 0
  999.     pop_a 2
  1000. .o 0 4 r r
  1001. e_deltaR_sPOW:
  1002. .o 0 4 r r
  1003. sPOW.1:
  1004.             ||    Match code for alternative 1, stacksizes A: 0 B: 4
  1005.             ||    Building the contractum, Stacksizes A: 0 B: 4
  1006. .inline POW
  1007.     powR
  1008. .end
  1009. .d 0 2 r
  1010.     rtn
  1011. .export e_deltaR_SQRT
  1012. .export e_deltaR_sSQRT
  1013. .export e_deltaR_nSQRT
  1014. .desc e_deltaR_SQRT e_deltaR_nSQRT e_deltaR_lSQRT 1 "SQRT"
  1015. .o 2 0
  1016. e_deltaR_lSQRT:
  1017.     pop_a 1
  1018. .d 1 0
  1019.     jsr eaSQRT
  1020. .o 0 2 r
  1021.     create
  1022.     fillR_b 0 0
  1023.     pop_b 2
  1024. .d 1 0
  1025.     rtn
  1026. .n 1 e_deltaR_SQRT
  1027. .o 1 0
  1028. e_deltaR_nSQRT:
  1029.     push_node _reserve 1
  1030. .d 1 0
  1031.     jsr eaSQRT
  1032. .o 0 2 r
  1033.     getWL 0
  1034.     fillR_b 0 0
  1035.     release
  1036.     pop_b 2
  1037. .d 1 0
  1038.     rtn
  1039. .o 1 0
  1040. eaSQRT:
  1041.             ||    REAL
  1042.     jsr_eval
  1043.             ||    REAL
  1044.     pushR_a 0
  1045.     pop_a 1
  1046. .o 0 2 r
  1047. e_deltaR_sSQRT:
  1048. .o 0 2 r
  1049. sSQRT.1:
  1050.             ||    Match code for alternative 1, stacksizes A: 0 B: 2
  1051.             ||    Building the contractum, Stacksizes A: 0 B: 2
  1052. .inline SQRT
  1053.     sqrtR
  1054. .end
  1055. .d 0 2 r
  1056.     rtn
  1057. .export e_deltaR_ENTIER
  1058. .export e_deltaR_sENTIER
  1059. .export e_deltaR_nENTIER
  1060. .desc e_deltaR_ENTIER e_deltaR_nENTIER e_deltaR_lENTIER 1 "ENTIER"
  1061. .o 2 0
  1062. e_deltaR_lENTIER:
  1063.     pop_a 1
  1064. .d 1 0
  1065.     jsr eaENTIER
  1066. .o 0 1 i
  1067.     create
  1068.     fillI_b 0 0
  1069.     pop_b 1
  1070. .d 1 0
  1071.     rtn
  1072. .n 1 e_deltaR_ENTIER
  1073. .o 1 0
  1074. e_deltaR_nENTIER:
  1075.     push_node _reserve 1
  1076. .d 1 0
  1077.     jsr eaENTIER
  1078. .o 0 1 i
  1079.     getWL 0
  1080.     fillI_b 0 0
  1081.     release
  1082.     pop_b 1
  1083. .d 1 0
  1084.     rtn
  1085. .o 1 0
  1086. eaENTIER:
  1087.             ||    REAL
  1088.     jsr_eval
  1089.             ||    REAL
  1090.     pushR_a 0
  1091.     pop_a 1
  1092. .o 0 2 r
  1093. e_deltaR_sENTIER:
  1094. .o 0 2 r
  1095. sENTIER.1:
  1096.             ||    Match code for alternative 1, stacksizes A: 0 B: 2
  1097.             ||    Building the contractum, Stacksizes A: 0 B: 2
  1098. .inline ENTIER
  1099.     entierR
  1100. .end
  1101. .d 0 1 i
  1102.     rtn
  1103. .export e_deltaR_RTOI
  1104. .export e_deltaR_sRTOI
  1105. .export e_deltaR_nRTOI
  1106. .desc e_deltaR_RTOI e_deltaR_nRTOI e_deltaR_lRTOI 1 "RTOI"
  1107. .o 2 0
  1108. e_deltaR_lRTOI:
  1109.     pop_a 1
  1110. .d 1 0
  1111.     jsr eaRTOI
  1112. .o 0 1 i
  1113.     create
  1114.     fillI_b 0 0
  1115.     pop_b 1
  1116. .d 1 0
  1117.     rtn
  1118. .n 1 e_deltaR_RTOI
  1119. .o 1 0
  1120. e_deltaR_nRTOI:
  1121.     push_node _reserve 1
  1122. .d 1 0
  1123.     jsr eaRTOI
  1124. .o 0 1 i
  1125.     getWL 0
  1126.     fillI_b 0 0
  1127.     release
  1128.     pop_b 1
  1129. .d 1 0
  1130.     rtn
  1131. .o 1 0
  1132. eaRTOI:
  1133.             ||    REAL
  1134.     jsr_eval
  1135.             ||    REAL
  1136.     pushR_a 0
  1137.     pop_a 1
  1138. .o 0 2 r
  1139. e_deltaR_sRTOI:
  1140. .o 0 2 r
  1141. sRTOI.1:
  1142.             ||    Match code for alternative 1, stacksizes A: 0 B: 2
  1143.             ||    Building the contractum, Stacksizes A: 0 B: 2
  1144. .inline RTOI
  1145.     RtoI
  1146. .end
  1147. .d 0 1 i
  1148.     rtn
  1149. .export e_deltaR_RTOS
  1150. .export e_deltaR_sRTOS
  1151. .export e_deltaR_nRTOS
  1152. .desc e_deltaR_RTOS e_deltaR_nRTOS e_deltaR_lRTOS 1 "RTOS"
  1153. .o 2 0
  1154. e_deltaR_lRTOS:
  1155.     update_a 1 0
  1156.     create
  1157.     update_a 0 2
  1158.     pop_a 1
  1159. .d 2 0
  1160.     jmp eaRTOS
  1161. .n 1 e_deltaR_RTOS
  1162. .o 1 0
  1163. e_deltaR_nRTOS:
  1164.     push_node _reserve 1
  1165. .o 2 0
  1166. eaRTOS:
  1167.             ||    REAL
  1168.     jsr_eval
  1169.             ||    REAL
  1170.     pushR_a 0
  1171.     pop_a 1
  1172. .o 1 2 r
  1173. e_deltaR_sRTOS:
  1174. .o 1 2 r
  1175. sRTOS.1:
  1176.             ||    Match code for alternative 1, stacksizes A: 0 B: 2
  1177.             ||    Building the contractum, Stacksizes A: 0 B: 2
  1178. .inline RTOS
  1179.     create
  1180.     fillR_b 0 0
  1181.     pop_b 2
  1182.     getWL 1
  1183.     fillS_symbol 0 1
  1184.     release
  1185.     pop_a 1
  1186. .end
  1187. .d 1 0
  1188.     rtn
  1189.